open BUFF,"genoexpression_log10_p_coeff_AUC.txt" or die "no file exists\n";
open(WRBUFF,">genotyping_AUC.txt");
$line=<BUFF>;
print WRBUFF $line;
while(<BUFF>)
{
	chomp($_);
	@a = split(/\t/,$_);
	print WRBUFF $a[0];
	for($i=1;$i<@a;$i++)
	{
		@a1 = split('__',$a[$i]);
		print WRBUFF "\t".$a1[2];
	}
	print WRBUFF "\n";
	#die;
}

